library(sf)
## Linking to GEOS 3.9.1, GDAL 3.4.0, PROJ 8.1.1; sf_use_s2() is TRUE
probables=read_sf("MostLikelyZG.gpkg")
grises=read_sf("selecDisMap.gpkg")
grises=grises[grises$Zona=='ZG' & grises$SpotsNBI=='3 coldSpot',]
library(leaflet)
CENTER_of_MAP="function(btn, map){map.setView([-10, -75], 6)}" #ltln
demoPlot=leaflet()%>%
addProviderTiles("CartoDB.Positron")%>%
addPolygons(data=probables,
label = ~provDist,
weight = 0.5, #borde
color = "red",#color
group = "probables",
fillOpacity = 0.4) %>%
addPolygons(data= grises,
label = ~provDist,
weight = 0.5,
color = "green",
group = "grises",
fillOpacity = 0.4) %>%
# capas
addLayersControl(
overlayGroups = c("probables", "grises"),
options = layersControlOptions(collapsed = FALSE)
)%>% hideGroup("probables")%>%
# zoom
addEasyButton(
easyButton(icon="fa-home", # a symbol
title="Zoom to Level 1",
onClick=JS(CENTER_of_MAP)))
demoPlot